home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / spline / AnimPainting_Spline.rx next >
Encoding:
Text File  |  1999-01-31  |  606 b   |  39 lines
  1. /* Script Rexx
  2.     AnimPainting for Spline*/
  3.  
  4.     call addlib("rexxmathlib.library", 5, -30, 0)
  5.  
  6.     options results
  7.   parse ARG Port Mx My Mx1 My1 Mxa Mya b
  8.     ADDRESS "Perfect_Paint.1"
  9.  
  10.     pp_CountFrames
  11.     nb=result
  12.     IF nb<2 then DO
  13.         pp_Warn 'Make*an*Anim*first.'
  14.         EXIT
  15.     END    
  16.  
  17.     sz=200
  18.   xa= (Mx+Mx1)/2 
  19.     ya= (My+My1)/2
  20.   Mxa= xa + 2*(Mxa-xa)
  21.     Mya= ya + 2*(Mya-ya)
  22.   x=Mx
  23.     y=My
  24.  
  25.     pp_Plot Mx My
  26.     pp_NextFrame
  27.   DO f=1 To sz
  28.     ff=f/sz
  29.     xa=Mx+(Mxa-Mx)*ff
  30.         ya=My+(Mya-My)*ff
  31.         xb=Mxa+(Mx1-Mxa)*ff
  32.         yb=Mya+(My1-Mya)*ff
  33.     x=trunc(xa+(xb-xa)*ff+0.5)
  34.         y=trunc(ya+(yb-ya)*ff+0.5)
  35.         pp_Plot x y
  36.         pp_NextFrame
  37.   END
  38.  
  39.